home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Unix / ftpumich.txt < prev    next >
Encoding:
Text File  |  1993-12-27  |  7.7 KB  |  254 lines  |  [????/????]
  1. #!/bin/csh -f
  2. #
  3. #Sorry Mike (or other maintainer)
  4. #
  5. #but this is the first time I have added something.
  6. #
  7. #This is a super awesome unix ftp script (IMHO).
  8. #
  9. #I know you guys like people to use gopher and other
  10. #things but I found this to be really slick.
  11. #
  12. #I hope I put this in the right place and have given
  13. #you enough info.
  14. #
  15. #Thanks!
  16. #
  17. #-Jack
  18. #
  19. #
  20. #/---------------------------------------------------------\
  21. #|  Jack W. Judy                  Office: (510) 642-1010   |
  22. #|  Electrical Engineering        FAX:    (510) 643-6637   |
  23. #|  497 Cory Hall (BSAC)          Lab:    (510) 642-2716   |
  24. #|  University of California      Home:   (510) 849-2604   |
  25. #|  Berkeley, CA  94720           email:  j.judy@ieee.org  |
  26. #\---------------------------------------------------------/
  27. # 
  28. # ftpumich
  29. #
  30. # This script was written for all those people frustrated with the limited
  31. # number of guest logins at the popular umich Mac archive.  It skips from
  32. # mirror to mirror until it succeeds. It always works for me. NO MORE WAITING.
  33. #
  34. # Comments and suggestions/improvements are welcome.
  35. #
  36. # Written by Jack Judy <j.judy@ieee.org> 12-21-93
  37. #
  38.  
  39. # Some variables you may want to tweek to your liking.
  40. @ sleep_time = 0
  41. @ maxcount = 1
  42. @ VERBOSE = 1
  43.  
  44. if ( $#argv == 0 || $#argv > 1 ) then
  45.     if ( $VERBOSE == 1 ) then
  46.             echo ""
  47.             echo "usage:    ftpumich [file_containing_compete_pathnames]"
  48.             echo "usage:    ftpumich"
  49.             echo ""
  50.             echo "The file (file_containing_compete_pathnames) holds the COMPLETE"
  51.         echo "pathnames of the files you want to 'ftp'.  The pathname format"
  52.         echo "of the files is that of the awesome archive at archive.umich.edu."
  53.         echo ""
  54.         echo "Example:"
  55.         echo ""
  56.         echo "j.judy@ieee.org 22> cat new_umich_stuff"
  57.         echo "/mac/00help/newthings.txt"
  58.         echo "/mac/00ls-lRfile"
  59.         echo "j.judy@ieee.org 23> ftpumich new_umich_stuff"
  60.         echo ""
  61.         echo "The order in which the ftp sites/mirrors are attempted"
  62.         echo "is given below.  The first ftp site is choosen to be the"
  63.         echo "uiowa site because things are not binhexed. Saves work."
  64.         echo ""
  65.         echo "    grind.isca.uiowa.edu     in mac/umich (no .hqx)"
  66.         echo "    archive.umich.edu     in mac"
  67.         echo "    wuarchive.wustl.edu     in mirrors/archive.umich.edu/mac"
  68.         echo "    archive.orst.edu     in pub/mirrors/archive.umich.edu/mac"
  69.         echo "    archie.au         in micros/mac/umich"
  70.         echo "    nic.switch.ch         in mirror/umich-mac"
  71.         echo "    src.doc.ic.ac.uk    in packages/mac/umich (with .gz)"
  72.         echo "    ftp.sunet.se         in /pub/mac/mirror-umich"
  73.         echo "    ftp.inter.spin.ad.jp     in pub/Mac/Merit.mirror"
  74.         echo "    ftp.technion.ac.il     in pub/unsupported/mac/umich"
  75.         echo "    nctuccca.edu.tw     in /Macintosh/umich-mac"
  76.         echo "    anl.anl.fr         in /pub/mac/umich (with .z)"
  77.         echo ""
  78.  
  79.         echo "If you pass no arguments then the files"
  80.         echo "    /mac/00help/newthings.txt"
  81.         echo "    /mac/00ls-lRfile"
  82.         echo "will be transfered so that you may browse them for the files"
  83.         echo "you wish to download."
  84.         echo ""
  85.         echo "A file called newthings.txt.greped will be created that holds"
  86.         echo "only the complete pathnames for the newest files in the archive."
  87.         echo ""
  88.         echo "The easiest way to download files is to edit this file (newthings.txt.greped)"
  89.         echo "and delete all the lines except for the files you wish to download."
  90.         echo "Then simply rerun ftpumich with this edited file as the argument."
  91.         echo "Presto.  All the files will be obtained .. every time (practically)."
  92.         echo ""
  93.         echo "This program creates ~/.netrc macros.  Each macro can't exceed 4k"
  94.         echo "which is just less than attempting to ftp all the new files."
  95.         echo "The ~/.netrc file is used and so a backup copy is saved as"
  96.         echo "~/.netrc.ftpumich incase there is some sort of problem and"
  97.         echo "your ~/.netrc file is not restored.  Re-running this script with"
  98.         echo "will not copy of the backup but instead it will restore the"
  99.         echo "original ~/.netrc file."
  100.             echo ""
  101.             echo "+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"
  102.             echo ""
  103.     endif
  104.  
  105.     if ( $#argv > 1 ) then
  106.         exit 1
  107.     endif
  108. endif
  109.  
  110. if ( $#argv == 0 ) then
  111.     echo "/mac/00help/newthings.txt">    ftpumich.tmp
  112.     echo "/mac/00ls-lRfile"        >>    ftpumich.tmp
  113.     set file = ftpumich.tmp
  114.     if ( -f newthings.txt ) then
  115.         rm -f newthings.txt
  116.     endif
  117.     if ( -f 00ls-lRfile ) then
  118.         rm -f 00ls-lRfile
  119.     endif
  120. else
  121.     set file = $1
  122. endif
  123.  
  124. echo ""
  125. echo "-----------------------------------------------------------------"
  126. echo "Now attmpting to ftp the following files:"
  127. cat $file
  128. echo "-----------------------------------------------------------------"
  129. echo ""
  130.  
  131. if ( ! (-f ~/.netrc.ftpumich) && -f ~/.netrc ) then
  132.     mv ~/.netrc ~/.netrc.ftpumich
  133. endif
  134.  
  135. foreach machine ( grind.isca.uiowa.edu archive.umich.edu mirror.archive.umich.edu wuarchive.wustl.edu archive.orst.edu nic.switch.ch ftp.sunet.se ftp.inter.spin.ad.jp archie.au src.doc.ic.ac.uk anl.anl.fr ftp.technion.ac.il nctuccca.edu.tw )
  136.     @ count = 0
  137.  
  138.     echo "machine $machine" > ~/.netrc
  139.     echo "login anonymous" >> ~/.netrc
  140.     if ( -f ~/.forward ) then
  141.         echo "password `cat ~/.forward`" >> ~/.netrc
  142.     else
  143.         echo "password `echo $user`@`hostname`" >> ~/.netrc
  144.     endif
  145.     echo "macdef init" >> ~/.netrc
  146.     echo "bin" >> ~/.netrc
  147.     echo "hash" >> ~/.netrc
  148.     echo "prompt" >> ~/.netrc
  149.  
  150. # Defaults:
  151.     set hqx = .hqx
  152.     set suffix = ""
  153.  
  154.     switch ($machine)
  155.     case    grind.isca.uiowa.edu:
  156.             set dir = /mac/umich
  157.             set hqx = 
  158.             breaksw
  159.     case    archive.umich.edu:
  160.             set dir = /mac
  161.             breaksw
  162.     case    mirror.archive.umich.edu:
  163.             set dir = /pub/mirrors/archive.umich.edu/mac
  164.             breaksw
  165.     case     wuarchive.wustl.edu:
  166.             set dir = /mirrors/archive.umich.edu/mac
  167.             breaksw
  168.     case     archive.orst.edu:
  169.             set dir = pub/mirrors/archive.umich.edu/mac
  170.             breaksw
  171.     case    nic.switch.ch:
  172.             set dir = mirror/umich-mac
  173.             breaksw
  174.     case    ftp.sunet.se:
  175.             set dir = /pub/mac/mirror-umich
  176.             breaksw
  177.     case    ftp.inter.spin.ad.jp:
  178.             set dir = pub/Mac/Merit.mirror
  179.             breaksw
  180.     case    archie.au:
  181.             set dir = /micros/mac/umich
  182.             breaksw
  183.     case    ftp.technion.ac.il:
  184.             set dir = pub/unsupported/mac/umich
  185.             breaksw
  186.     case    src.doc.ic.ac.uk:
  187.             set dir = /packages/mac/umich
  188.             set suffix = ".gz"
  189.             breaksw
  190.     case    anl.anl.fr:
  191.             set dir = /pub/mac/umich
  192.             set suffix = ".z"
  193.             breaksw
  194.     case    nctuccca.edu.tw:
  195.             set dir = /Macintosh/umich-mac
  196.             breaksw
  197.     endsw
  198.     echo "### /;^) Attmepting to connect to $machine /;^) ###"
  199.  
  200.     echo ""
  201.     echo "cd $dir" >> ~/.netrc
  202.     cat $file | sed -e 's/^\/mac\///' | sed -e 's/.hqx//' | awk -F/ '{print "get", $0"'$hqx$suffix'", $NF"'$hqx$suffix'" }' >> ~/.netrc
  203.     endif
  204.     echo "quit" >> ~/.netrc
  205.     echo "" >> ~/.netrc
  206.     chmod 600 ~/.netrc
  207.     
  208.     set length_before = `/bin/ls -l | wc -l`
  209.     
  210.     while ( `/bin/ls -l | wc -l` <= $length_before && $count < $maxcount )
  211.         ( echo "quit" ) | ftp $machine
  212.         if ( `/bin/ls -l | wc -l` == $length_before ) then
  213.             @ count ++
  214.             echo ""
  215.             echo "### /:^( Attempt #"$count" of $maxcount to connect to $machine has failed. /:^( ###"
  216.             echo ""
  217.             echo "-----------------------------------------------------------------"
  218.             echo ""
  219.             sleep $sleep_time
  220.         else
  221.             echo ""
  222.             echo "-----------------------------------------------------------------"
  223.             echo ""
  224.             @ new = `/bin/ls -l | wc -l` - $length_before
  225.             echo "Finished ftp'ing (Successfully I think. Number of new files = ($new)"
  226.             echo ""
  227.             mv ~/.netrc.ftpumich ~/.netrc
  228.             chmod 600 ~/.netrc
  229.             rm -f ftpumich.tmp
  230.             if ( $#argv == 0 ) then
  231.                 if ( -f newthings.txt.gz ) then
  232.                     unzip newthings.txt.gz
  233.                 endif
  234.                 if ( -f newthings.txt.Z ) then
  235.                     uncompress newthings.txt.Z
  236.                 endif
  237.                 cat newthings.txt | grep "^\/mac\/" > newthings.txt.greped
  238.                 echo ""
  239.                 echo "Please edit the file called (newthings.txt.greped) and delete the lines"
  240.                 echo "that contain filenames you do not wish to ftp."
  241.                 compress 00ls-lRfile
  242.                 echo ""
  243.             endif
  244.             exit 0
  245.         endif
  246.     end
  247.  
  248. end
  249.  
  250. echo "All attempts to ftp have failed."
  251. mv ~/.netrc.ftpumich ~/.netrc
  252. chmod 600 ~/.netrc
  253. rm -f ftpumich.tmp
  254.